Introduction to Prolog 


e What is Prolog? 


— Prolog (Programming in Logic) is a programming language for AI and non-numerical 


programming in general. 


e What is new? 


— Conventional (well established, standard) languages are procedurally oriented, while 
Prolog introduces the declarative view. 


1. Syntax of Prolog 


(a) clauses 


A Prolog program consists of clauses. 

A Prolog clause is a Horn clause. 

Each clause terminates with a full stop. 

Prolog clauses are of three types: rules, facts, and questions. 
Examplel: rule — offspring(X, Y) :- parent(Y, X). 
Example2: fact — parent(tom, ann). 


Example3: questions — parent(X, ann). 


(b) procedures 


e A group of clauses which the head of each clause are the same is called a procedure. 
e Example: 
connects(san_francisco, oakland, bart_tran). 
connects(san_francisco, fremont, bart_tran). 
connects(concord, daly_city, bart_tran). 
(c) rules 
e A rule is a clause with one or more conditions. For a rule to be true, all of its 
conditions must also be true. 
e The right-hand side of the rule is a condition and the left-hand side of the rule is 


the conclusion. 


The ‘:-’ sign means ‘if’. The clause in Examplel can be stated as X is an offspring 


of Y if Y is a parent of X. 


The left-hand side is called the head of the rule and the right-hand side is called 
the body of the rule. The body of a rule is a list of goals separated by commas. 


Commas are understood as conjunctions. 


Example: p :- q, r, s, t. means p is true if q and r and s and t are true. 


(d) facts 


Facts are always unconditionally true. It only has a head part (the conclusion) 
with an empty body. 
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e Example: has(student, books). 
(e) questions 

e Questions are queries for retrieving facts through rules. It only has the body (the 

goals). 

e Example: fly(penguin). 
(f) arguments 

e Arguments can be an atom, a number, a variable, or a structure. 
(g) atoms 

e Atoms are concrete objects (but numbers are NOT atoms). 

e The first letter of an atom is always a small letter. 

e Strings of letters: tom, nil, x25, x_25AB, x_, x__y, top_part 


e Strings of special characters: <—>, ===>, ..., .:. (with caution) 


Quoted strings: “Tom”, South America’ 
(h) numbers 


e The syntax of integers is simple except one must remember that the range of 
integers is limited to an interval, in SICSTUS Prolog, between -16383 to 16383. 


e Examples: 3.1416, -0.001, 22.223, 100 
(i) variables 
e Variables are general objects. 
e The first letter of a variable is always a Capital letter. 
e Example: X and Y in Examplel. 


Variables can be substituted by another object (becomes instantiated). 

e variables are assumed to be universally quantified (for all). 

Example: For all X and Y, if X is a offspring of Y then Y is a parent of X 
(Examplel). 


e When a variable appears in a clause only once, it is called anonymous variable 


which is represented by a - alone or start with it. 
e Examples: _, 23, X, var 


A variable is instantiated if it is bound to a non-variable term. That is, to an atom, 


a number, or a structure. 
(j) structures (functions) 


e Structures are functors that have zero or more arguments. 

e Example: start_date(6, may, 1996). 

e Example: triangle(point(4,2), point(6,4), point(7,1)). 

e The start_date and point are called functor, and triangle is called the principle 
functor. 


A functor is defined by two things: name and arity (number of arguments). The 
general form of a functor is functor/arity. 


e Examples: start_date/3, triangle/3, point /2 
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(k) predicates — a functor that specifies some relationship existing in the problem domain. 
The difference between a predicate and a function is that the function will return a 
value to the calling procedure, while a predicate does not returns value but a true or 
false statement. 

e Examples: end of.file/0 and integer/1 are built-in predicates 
e Built-in predicates come with the system which do not need to be compiled or 
consulted before it is used. 

(1) recursive 

e A running procedure calls itself with different arguments and for the purpose of 
solving some subset of the original problem. 

e Recursive is one of the fundamental principles of programming in Prolog. 

e Example: 


predecessor(X, Z) :- 
parent(X, Z). 


predecessor(X, Z) :- 
parent(X, Y), 
predecessor(Y, Z). 


(m) comments 


e Example: /* this is a comment */ 


e Example: % This is also a comment 
2. matching 


e Given two terms, we say that they match if: 


— they are identical or 


— they become identical after they are instantiated 


e If two terms are match then the process succeeds. Otherwise, the process fails. 








e Examples (arithmetic expressions): 6 =:= 6,6 = \=7 


e Examples (others): six == six, six \== seven 
3. Order of Clauses and Goals 


e danger of indefinite looping 

e Example 1: p :- p. 

e Example 2: The monkey and the banana program in Assignment # 1 
e order of clauses is important 


e Example 3: 


likes(Person, Something) :- 
animal (Something). 
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likes(mary, snake) :- 
|, fail. 


The most general clause should be tried last while the most specific clause should be 


tried first. 

e Example 4: 
example(i, 2, 3, 4, 5) :- do_p1. 
example(1, 2, 3, 4, _) :- do_p2. 
example(1, 2, 3, 2, cd :- do_p3. 
example(1, 2, vs case do_p4. 
example(1, ay 25 Lycos) :- do_p5. 
example(_, 2, <4) mas) :- do_p6. 


Declarative and Procedural Meaning of Prolog Programs 


1. the declarative meaning 


e concerned only with the relations defined by the program and determines what will be 
the output of the program 


e determines whether a given goal is true and if so, for what values of variables it is true. 
e Given a goal G, the declarative meaning says: 


G is true if and only if 


— there is a clause C in the program and there is an instance I of C such that 


(1) the head of I is identical to G and 
(2) all the goals in the body of I are true 


e Example: 


given G = hasachild(peter). 


The program has a clause 
C = hasachild(X) :- parent(X, Y). 
and a fact 
parent (peter, tom). 
Then 
hasachild(peter) :- parent(peter, Z). 
and 
parent (peter, tom). 
is an instance of G 


2. the procedural meaning 


e specifies how Prolog answers questions. 


e means to try to satisfy a list of goals 
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e output a success or failure indicator and an instantiation of variables (p.48-50, Bratko) 


e Example: 


Program: 


dark(Z) :- black(Z); brown(Z). 


big(bear). 
big(elephant). 
small(cat). 


brown (bear). 
black(cat). 
gray (elephant). 


Trace the question dark(X), big(X): 
| ?- trace, dark(X), big(X). -- the initial goal. 


Call: dark(_51) ? 


Call: black(_51) ? 


Exit: black(cat) ? 


Exit: dark(cat) ? 
Call: big(cat) ? 
Fail: big(cat) ? 
Redo: dark(cat) ? 
Redo: black(cat) ? 
Fail: black(_51) ? 
Call: brown(_51) ? 


Exit: brown(bear) ? -- 


Exit: dark(bear) ? 
Call: big(bear) ? 
Exit: big(bear) ? 


X = bear ? 


yes 


How to run Prolog? 


scan the program from top to bottom looking for 
a clause whose head matches the first goal 

found clause dark(Y) :- black(Y), replace the 
first goal by the instantiated body of this 
clause and the new goals are black(X), big(X). 
scan the program to find a match for black(X) 

and black(cat) is found. 

the initial goal dark(X) has been instantiated to 
dark(cat) and the new goal is sinked to big(cat). 
scan the program again and big(cat) is not found 
backtracking to dark(cat) 

backtracking to black(cat) 

the goal black(X) is failed 

try next alternative dark(Y) :- brown(Y). 

scan the program and brown(bear) is found 

the new goal is reduced into big(bear) 

scan the program to find big(bear) 

big(bear) is found 


X is instantiated to bear 


goal list is empty and terminated with success 


1. All Prolog clauses, questions end with a full stop. 


2. Single quotation marks are used if files has extensions. 
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3. “” means or. 
4. Commas represent and. 


e Example: p :- q,r 
e Example: p:- q;r 


5. type ‘sicstus’ to invoke Prolog 


aristotle [463] sicstus 

SICStus 2.1 #9: Wed Oct 11 15:33:09 CST 1995 

| ?- 

[’back_trac.pl’]. 

{consulting /u/jian/public html/420/sample/back trac.pl...) 
{/u/jian/public_html/420/sample/back_trac.pl consulted, 33 msec 1072 bytes} 
yes 

| ?- f(1, Y), 2< Y. 


Y=4? 


| ?- halt. 


6. consult(program_name). — load a program into Prolog through the interpreter. Interpreted 
code runs 8 times slower than compiled code, but you can debug interpreted code in more 
detail than compiled code (also known as interpret(program name)). 


e Example: consult(’ass/assl1/monkey.pl’). 


7. compile(program name) — load a program into Prolog through the compiler. Compiled code 
runs 8 times faster than interpreted code, but you cannot debug compiled code im as much 
detail as interpreted code. 


e Example: compile(falmily). 


8. The difference between counsult/1, load/1, and compile/1. 


| ?- compile(conc). 
{compiling /u/jian/public html/420/sample/conc...+ 
(/u/jian/public html/420/sample/conc compiled, 33 msec 464 bytes} 


yes 

| ?- trace, conc(la,b], [c,d], List). 

{The debugger will first creep -- showing everything (trace) } 
1 Call: conc(la,b], [c,d],.83) ? 
1 Exit: conc(la,b], Lc,d],la,b,c,d]) ? 
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List = [a,b,c,d] ? 


yes 
{trace} 


| ?- consult (user:conc). 
{consulting /u/jian/public html/420/sample/conc...+ 
{/u/jian/public_html/420/sample/conc consulted, 0 msec 48 bytes} 


yes 

| ?- trace, conc(la,b], [c,d], List). 

{The debugger will first creep -- showing everything (trace) } 
1 Call: conc(La,b],[c,d],_83) ? 

Call: conc([b],[c,d], 714) ? 

Call: conc([],[c,d],_934) ? 

Exit: conc([],[c,d], [c,d]) ? 

Exit: conc([b],[c,d],[b,c,d]) ? 

Exit: conc(la,b],[c,d],la,b,c,d]) ? 


= NUUN 


List = [a,b,c,d] ? 


yes 
{trace} 


Lists, Operators, Arithmetic, Using Structures 


Syntax of Lists 


1. Lists are simple data structure widely used in non-numeric programming. 
2. A list is a sequence of any number of items. 
e Example: [apple, pear, grape, orange] 
3. Lists have two cases: empty or non-empty 
e Examples: | | and [1,2,3,4,5] 
4. An empty list is an atom in Prolog 


5. The first element of a non-empty list is called the head, and the rest of the list is called the 
tail. 


e Example: [Head|Tail] = [1]2,3,4,5]; [H1, H2|Tail] = [1,2]3,4,5] 
6. A list can be an element of a list. 
e Examplel: [ann, [tennis, music], tom, [skiing, food]] 
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e Example2: [[[[1], 2], 3], 4, [5]] 


Operations on Lists 
1. membership 
e member(X, List). 


e We want to find if X is a member of the List. 
Case 1: X is equal to the first element of List 


Case 2: X is not equal to the first element of List 


e Program: 


member (X, [X| ]). 
member(X, [_|Tail]) :- 
member (X, Tail). 


trace on member(a, [x,1,3,q,z,a,b]). 


Call: member(a,[x,1,3,q,z,a,b]) ? 
Call: member(a,[1,3,q,z,a,b]) ? 
Call: member(a,[3,q,z,a,b]) ? 
Call: member(a,lq,z,a,b]) ? 

Call: member(a,[z,a,b]) ? 

Call: member(a,la,b]) ? 

Exit: member(a,la,b]) ? 

Exit: member(a,[z,a,b]) ? 

Exit: member(a,lq,z,a,b]) ? 

Exit: member(a,[3,q,z,a,b]) ? 
Exit: member(a,[1,3,q,z,a,b]) ? 
Exit: member(a,[x,1,3,q,z,a,b]) ? 


HEM QE TDD OP WYN EF 


trace on member(a, [x,1,3,q,z]). 


Call: member(a,[x,1,3,q,z]) ? 
Call: member(a,l1,3,q,z]) ? 
Call: member(a,[3,q,z]) ? 
Call: member(a,lq,z]) ? 

Call: member(a,[z]) ? 

Call: member(a,[]) ? 

Fail: member(a,[]) ? 

Fail: member(a,[z]) ? 

Fail: member(a,lq,z]) ? 

Fail: member(a,[3,q,z]) ? 
Fail: member(a,[1,3,q,z]) ? 
Fail: member(a,[x,1,3,q,z]) ? 


FPNHwWAODDAOAWNR 


ww ai bbt. com GOOO0O000 


2. concatenation 


e conc(Listl, List2, NewList). 
e We want to combine Listl and List? into a NewList. 
e Actually the job is to insert List2 after Listl 


e Program: 


conc(L], List2, List2). 
conc([X|Taili], List2, [X|Tail]) :- 
conc(Taili, List2, Tail). 


trace of conc([a,b], [c,d], New): 


Call: conc(la,b], [c,dl, 83) ? 

Call: conc([b], [Lc,d], 712) ? 

Call: conc([], [c,d], 932) ? 

Exit: conc(L],[c,d], [c,d]) ? 

Exit: conc([b],[c,d],[b,c,d]) ? 
Exit: conc([a,b],[c,d],[la,b,c,d]) ? 


PHO O WON 


New = [a,b,c,d] 
trace of conc(L], [a,b,c], New). 


1 Call: conc(L],[a,b,c],_93) ? 
1 Exit: conc(O , [a,b,c], [a,b,c]) ? 


New = [a,b,c] 
trace of conc([a,b,c], O, New). 


Call: conc(la,b,cl,[],.93) ? 
Call: conc([b,c],[],_384) ? 
Call: conc([c],[],.603) ? 

Call: conc([],[],.821) ? 

Exit: conc(0, 0,0) ? 

Exit: conc([c],L],[c]) ? 

Exit: conc([b,cl,[], [b,cl) ? 
Exit: conc([a,b,c]l,[],la,b,c]l) ? 


=e NU RR WY PE 


New = [a,b,c] 


3. adding an item 


e add(Item, Position, List, NewList). 
e We want to add an Item at Position of the List. 
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e Two cases: Reach to the Position, not yet at the Position. 


e Program: 


add(Item, 0, List, [Item|List]). 

add(Item, Position, [L|Taili], [L|Tail2]) :- 
Pi is Position - 1, 
add(Item, Pi, Taili, Tail2). 


trace of add(k, 3, [c,a,e], NewList). 


Call: add(k,3,[c,a,e],_113) ? 
Call: _755 is 3-1 ? 

Exit: 2 is 3-1? 

Call: add(k,2, [a,el, 761) ? 

Call: 1419 is 2-1? 

Exit: 1 is 2-1? 

Call: add(k,1, [e], 1425) ? 

Exit: add(k,1, [el], [k,el) ? 

Exit: add(k,2, [a,e], [a,k,el) ? 
Exit: add(k,3,[c,a,e],[c,a,k,e]) ? 


e wanne Be SU NO O 


NewList = [c,a,k,el 


4. deleting an item 


e delete(Item, List, NewList). 
e We want to delete the Item from the List. 


Casel: Item matches the first element in List 


Case2: Item does match the first element in List 


e Program: 


delete(Item, [Item|List], List). 
delete(Item, [L|Taili], [L|Tail2]) :- 
delete(Item, Tail1, Tail2). 


trace of delete(k, [c,a,k,e], NewList). 


1 Call: delete(k,[c,a,k,e],_85) ? 

2 Call: delete(k,[a,k,e],_722) ? 

3 Call: delete(k,[k,e],_942) ? 

3 Exit: delete(k,[k,el,[e]) ? 

2 Exit: delete(k, [a,k,e], [a,e]) ? 

1 Exit: delete(k,[c,a,k,el,[c,a,e]) ? 
NewList = [c,a,e] ? 
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5. sublist 


e Make use of existing programs to do new things. 
e sublist(S, L). 
e We want to know if list S is a sublist of the list L. 


e Program: 


sublist(S, L):- 
conc(_, _, L), 
conc(S, _, L). 


trace of sublist([a,b,c], [a,b,c,c,e]). 


Call: sublist(La,b,c],la,b,c,c,e]) ? 
Call: conc(_401,_402,[a,b,c,c,e]) ? 
Exit: conc([],La,b,c,c,el,[a,b,c,c,e]) ? 
Call: conc([la,b,c] ,_398,[a,b,c,c,e]) ? 
Call: conc([b,c],_398,[b,c,c,e]) ? 
Call: conc([c], 398, [c,c,el) ? 

Call: conc([], 398, [c,el) ? 

Exit: conc([], Lc,el, [c,el]) ? 

Exit: conc([c],[c,e],[c,c,e]) ? 

Exit: conc([b,cl,[c,e],lb,c,c,e]) ? 
Exit: conc(la,b,cl,[c,el,la,b,c,c,el) ? 
Exit: sublist(La,b,c],la,b,c,c,e]) ? 


FPwWPODBDODOOAPWNHYOND KH 


e Problems with this program 


trace of sublist([a,b,c], [a,k,d,l,c]) with improved program 
Call: sublist(La,b,c],la,k,d,l,c]) ? 
Call: conc(La,b,c] ,_398,[a,k,d,l,c]) ? 
Call: conc([b,cl, 398, [k,d,1,c]) ? 

Fail: conc([b,cl, 398, [k,d,1,c]) ? 

Fail: conc(la,b,cl,.398,[la,k,d,1,cl) ? 
Fail: sublist(La,b,c],la,k,d,l,c]) ? 
Call: sublist(La,b,c],la,k,d,l,c]) ? 
Call: conc(_724,_725,[a,k,d,l,c]) ? 
Exit: conc([],[la,k,d,1,cl, [a,k,d,1,c]) ? 
Call: conc(la,b,cl, 721,[la,k,d,1,cl) ? 
Call: conc([b,cl, 721, lk,d,1,c]) ? 

Fail: conc([b,cl, 721, lk,d,1,c]) ? 

Fail: conc(la,b,cl, 721,la,k,d,1,cl) ? 
Redo: conc([],la,k,d,1,c], la,k,d,1,c]) ? 
Call: conc(. 950, 725, lk,d,1,c]) ? 

Exit: conc([], [k,d,1,cl,[k,d,1,c]) ? 
Exit: conc(la], lk,d,1,cl, [la,k,d,1,cl) ? 


NUUNUU e be WNONPRPRPNYNWWYNY 
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Oo co N WAAANNDOPWNYANNNYWPAAMHDAVDWBAHPWBNADDAN WROTE THN Ç REUNIR: 


Call: conc(la,b,cl, 721,[k,d,1,c]) ? 
Fail: conc(la,b,cl, 721,[k,d,1,c]) ? 
Redo: conc([al, [k,d,1,c],la,k,d,1,c]) ? 
Redo: conc([], [k,d,1,cl, [k,d,1,cl) ? 
Call: conc(. 1171, 725, [d,1,cl) ? 

Exit: conc( [0O ,[d,1,c],[d,1,c]) ? 

Exit: conc([k],[d,1,cl, [k,d,1,c]) ? 
Exit: conc(la,k], [d,1,cl, [la,k,d,1,cl) ? 
Call: conc([a,b,c],_721,[d,l,c]) ? 
Fail: conc([a,b,c],_721,[d,l,c]) ? 
Redo: conc([a,k],[d,l,c],l[a,k,d,l,c]) ? 
Redo: conc([k],[d,1,cl,[k,d,l,c]) ? 
Redo: conc([],[d,1,cl,[d,l,c]) ? 

Call: conc(_1391,_725,[1,c]) ? 

Exit: conc( [O ,[1,c],[1,c]) ? 

Exit: conc([d], [1,cl,[d,1,c]) ? 

Exit: conc([lk,d],[1,cl, [k,d,1,c]) ? 
Exit: conc(la,k,d],[1,cl,[la,k,d,1,cl) ? 
Call: conc([a,b,c],_721,[1,c]) ? 

Fail: conc([a,b,c],_721,[1,c]) ? 

Redo: conc([a,k,d],[1,c],[a,k,d,l,c]) ? 
Redo: conc([k,d], [1,cl, [k,d,1,cl) ? 
Redo: conc([d],[1,c],[d,l,c]) ? 

Redo: conc([],[1,c],[1,c]) ? 

Call: conc(_1610,_725,[c]) ? 

Exit: conc([],[Lcl,[cl]) ? 

Exit: conc([1],[c],[l,c]) ? 

Exit: conc([d,1],[c],[d,l,c]) ? 

Exit: conc([k,d,1],[c],l[k,d,l,c]) ? 
Exit: conc(la,k,d,1],[cl,[la,k,d,1,cl) ? 
Call: conc(la,b,cl, 721,[cl]) ? 

Fail: conc([a,b,c],_721,[c]) ? 

Redo: conc([a,k,d,1],[c],[a,k,d,l,c]) ? 
Redo: conc([k,d,1],[Lcl, [k,d,1,cl) ? 
Redo: conc([d,1],[c],[d,l,c]) ? 

Redo: conc([1],[c],[1,c]) ? 

Redo: conc(L],[c],[c]) ? 

Call: conc(_1828,_725,[]) ? 

Exit: conc(0, 0,0) ? 

Exit: conc([cl,[],[cl]) ? 

Exit: conc([1,cl,[],[1,c]) ? 

Exit: conc([d,l,c],[],[d,l,c]l) ? 

Exit: conc([k,d,l,c],01,[k,d,l,c]) ? 
Exit: conc(la,k,d,1,cl, [|], [a,k,d,1,c]) ? 
Call: conc(la,b,cl, 721,[]) ? 

Fail: conc(la,b,cl, 721,[]) ? 
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2 Redo: conc(la,k,d,1,cl,[], Lla,k,d,1,c]) ? 
3 Redo: conc([k,d,1,cl,[],[k,d,1,cl) ? 
4 Redo: conc([d,1,cl,[],[d,1,cl) ? 

5 Redo: conc([1,cl,L],[1,cl) ? 

6 Redo: conc([cl,[I,[cl) ? 

7 Redo: conc(0,0, 0) ? 

7 Fail: conc( 1828, 725,[]) ? 

6 Fail: conc(. 1610, 725, [c]) ? 

5 Fail: conc( 1391, 725, [1,cl) ? 

4 Fail: conc(. 1171, 725, [d,1,c]l) ? 

3 Fail: conc(. 950, 725, [k,d,1,c]) ? 

2 Fail: conc( 724, 725, la,k,d,1,cl) ? 
1 Fail: sublist([a,b,c],[a,k,d,l,c]) ? 
yes 

{trace} 


e Preventing Backtracking 


e Program with a cut: 


sublist(S, L):- 
conc(S, _, L), !. 


trace of sublist([a,b,c], [a,k,d,l,c]) with a cut 


{trace} 
| ?- sublist([a,b,c], [a,k,d,l,c]). 

1 1 Call: sublist([a,b,c],[la,k,d,l,c]) ? 
Call: conc([a,b,c],_398,[a,k,d,l,c]) ? 
Call: conc([b,cl, 398, [k,d,1,c]) ? 
Fail: conc([b,cl, 398, [k,d,1,c]) ? 
Fail: conc(la,b,cl], 398, [a,k,d,1,cl) ? 
Fail: sublist(La,b,c],la,k,d,l,c]) ? 


=. N WWD 
= N UUN 


no 
{trace} 


6. permutation 


e A permutation is a bijection onto itself (n!). 


e Program perm(List, X) with backtracking: 


perm([], []). 

perm(List, [X|Tail] ) :- 
delete(X, List, List1), 
perm(Listi, Tail). 
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trace perm(List, X): 


{trace} 

| ?- trace, perm(La,b,c],X). 

{The debugger will first creep -- showing everything (trace) } 
1 Call: perm([a,b,c],_93) ? s 
1 Exit: perm(L[a,b,c],Lla,b,c]) ? 


X = [a,b,c] ? ; 
1 Redo: perm([a,b,c],[a,b,c]) ? s 
1 Exit: perm([a,b,c],[a,c,b]) ? 


X = [a,c,b] ? ; 
1 Redo: perm([a,b,c],[a,c,b]) ? s 
1 Exit: perm([a,b,c],[b,a,c]) ? 


X= [biac] 2 

Redo: perm(La,b,c],[b,a,c]) ? 
Redo: perm(la,cl,la,cl) ? s 
Exit: perm(La,c],[c,a]) ? 
Exit: perm(La,b,c],[b,c,a]) ? 


e N NBE 


X = [b,c,a] ? ; 
1 Redo: perm([a,b,c],[b,c,a]) ? s 
1 Exit: perm([a,b,c],[c,a,b]) ? 


X= [c,a,b] ? ; 
1 Redo: perm([a,b,c],[c,a,b]) ? s 
1 Exit: perm([a,b,c],[c,b,a]) ? 


X = [c,b,a] ? ; 
1 Redo: perm([a,b,c],[c,b,a]) ? s 
1 Fail: permílla,b,cl, 93) ? 


no 
{trace} 
Program permutation(List) with built-in function ‘findall’: 


permutation(List) :- 
findall(One, perm(List, One), Perms), 
output (Perms). 


perm([], []). 

perm(List, [X|ITail] ) :- 
delete(X, List, List1), 
perm(Listi, Tail). 
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output ([]). 

output ([P|Ps]) :- 
write(P), nl, 
output (Ps). 


trace permutation(List): 

aristotle[119]% sicstus 

SICStus 2.1 #9: Wed Oct 11 15:33:09 CST 1995 

| ?- [’library.pl’]. 

{consulting /u/jian/public_htm1/420/sample/library.pl...} 
{/u/jian/public_html1/420/sample/library.pl consulted, 200 msec 16736 bytes} 


yes 
| ?- trace, permutation(la,b,c]). 

{The debugger will first creep -- showing everything (trace) } 
1 Call: permutation([a,b,c]) ? 


2 Call: findall(_675,user:perm([a,b,c],_675),_677) ? 
3 Call: perm([a,b,c],_675) ? s 

3 Exit: perm(la,b,cl,la,b,cl) ? 

3 Redo: perm(la,b,cl,la,b,cl) ? s 

3 Exit: perm([a,b,c],[a,c,b]) ? 

3 Redo: perm([a,b,c],[a,c,b]) ? s 

3 Exit: perm([a,b,c],[b,a,c]) ? 

3 Redo: perm([a,b,c],[b,a,c]) ? s 

3 Exit: perm([a,b,c],[b,c,a]) ? 

3 Redo: perm([a,b,c],[b,c,a]) ? s 

3 Exit: perm([a,b,c],[c,a,b]) ? 

3 Redo: perm([a,b,c],[c,a,b]) ? s 

3 Exit: perm([a,b,c],[c,b,a]) ? 

3 Redo: perm([a,b,c],[c,b,a]) ? s 

3 Fail: perm(la,b,cl, 675) ? 

2 Exit: findall( 675,user:perm(la,b,c], 675),Lla,b,cl,la,c,bl, 


[b,a,c],lb,c,al,[c,a,b],[c,b,a]]) ? 
2 Call: output([[a,b,c],[a,c,b],[b,a,c],[b,c,a],[c,a,b],[c,b,a]]) ? s 
[a,b,c] 
[a,c, b] 
[b,a,c] 
[b,c,al] 
[c,a,b] 
[c,b,al 
2 Exit: output([[a,b,c],[a,c,b],[b,a,c],[b,c,a],[c,a,b],[c,b,a]]) ? 
1 Exit: permutation([a,b,c]) ? 


7. operator notation 


e improve readability of programs 
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e operator types: infix (xfx, xfy, yfx), prefix (fx, fy), postfix (xf, yf) 


e where the precedence of x < f while the precedence of y < f and they are used to 
disambiguate expersssions. 


e infix has two arguements and one operator while prefix has one arguement and one 
operator 


e Examples: 
—yfx:a-b-c>(a-b)-c 
— xfy:a-b-c>a-(b-c) 
— prefix (fx): not not P — not (not P) 
— prefix (fy): not not P > (not not) P 


e define an operator 


e Example: (A & B) <== À v B can be represented in Prolog after defining some 
operators 


:- op(800, xfx, ’<===>’). 
:- op(700, xfy, ’v’). 
:- op(600, xfy, ’&’). 
f= op(500, fy, 2°?) 


“(A & B) <===> “A v “B. 


e the numbers presents the precedence of the operators 
8. arithmetic 
e operators used for basic arithmetic: +, -, *, /, //, mod (modulo, the remainder of 
integer division) 
e for ‘X = 1 + 2’ the answer is not ‘X = 3’ but ‘X =1 4+ 2’ 
e The operator is is provided to force evaluation. 
e for ‘X is 1 + 2’ the answer is ‘X = 3’ 
e for ‘X is 10 / 3’ the answer is ‘X = 3.3333333333333335’ 
e for ‘X is 10 // 3’ the answer is ‘X = 3’ 
, =<, ==, = \ 


e Example: find the greatest common diviser fo two numbers. 





e operators for comparison: >, <, > 





e Program: 


gcd(X, X, X). 
ged(X, Y, D) «+ 
X<Y, 

Yt is- Y - X, 
gcd(X, Y1, D). 
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gcd(X, Y, D) :- 
Y < X, 
gcd(Y, X, D). 


1. trace of gcd(3, 5, D). 


Call: gcd(3,5,_93) ? 
Call: 3<5 ? 

Exit: 3<5 ? 

Call: _372 is 5-3 ? 
Exit: 2 is 5-3 ? 
Call: gcd(3,2,_93) ? 
Call: 3<2 ? 

Fail: 3<2 ? 

Call: 2<3 ? 

Exit: 2<3 ? 

Call: gcd(2,3,_93) ? 
Call: 2<3 ? 

Exit: 2<3 ? 

Call: _2050 is 3-2 ? 
Exit: 1 is 3-2? 
Call: gcd(2,1,_93) ? 
Call: 2<1 ? 

Fail: 2<1 ? 

Call: 1<2 ? 

Exit: 1<2 ? 

Call: ged(i, 2,293) ? 
12 Call: 1<2 ? 

12 Exit: 1<2 ? 

13 Call: _3728 is 2-1 ? 
13 Exit: 1 is 2-1? 

14 Call: gcd(1,1,_93) ? 
14 Exit: gcd(1,1,1) ? 

1 Exit: gcd(1,2,1) ? 
9 Exit: gcd(2,1,1) 
6 Exit: gcd(2,3,1) 
4 

1 


O©O WOON NOTH HH PWBWNYNNPKE 


RY RY RY BY Fe 
=. OOOO 


Exit: gcd(3,2,1) 
Exit: gcd(3,5,1) 
D= 1 


“NN NN 


e Example: count the length of a list 


e Program: 


countList(L], 0). 
countList(L |Taill, N) :- 
countList(Tail, N1), 
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N is 1+ Nt. 
2. trace of countList([a,b,d,e,f], N). 


Call: countList(la,b,d,e,f],.99) ? 
Call: countList([b,d,e,f], 389) ? 
Call: countList([d,e,f],. 614) ? 
Call: countList(le,f], 838) ? 
Call: countList([f], 1061) ? 
Call: countList([], 1283) ? 
Exit: countList([],0) ? 

Call: 1061 is 1+0 ? 

Exit: 1 is 1+0 ? 

Exit: countList([f],1) ? 

Call: _838 is 1+1 ? 

Exit: 2 is 1+1 ? 

Exit: countList([e,f],2) ? 

Call: _614 is 1+2 ? 

Exit: 3 is 1+2 ? 

Exit: countList(ld,e,f],3) ? 
Call: _389 is 1+3 ? 

Exit: 4 is 1+3 ? 

Exit: countList([b,d,e,f],4) ? 
Call: _99 is 1+4 ? 

Exit: 5 is 1+4 ? 

Exit: countList([a,b,d,e,f],5) ? 
N= 5 


9. built-in predicates: 


e Built-in predicates come with the system. They do not return values but true or false 
statements. 


e Example: <, >, = / =, == 
10. buit-in functions: 


e Built-in functions are also come with system. They return values 
e abs(X), min(X, Y), max(X, Y), round(X), sin(X), cos(X), sqrt(X), log(X), exp(X, Y), 
.., (See SICStus Prolog Manual, p. 50-52). 


e Example: 


aristotle [45]% sicstus 

SICStus 2.1 #9: Wed Oct 11 15:33:09 CST 1995 
| ?- X is abs(-3.4). 

X = 3.4? 

yes 
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11. 


| ?- X is min(78, 3). 


yes 


yes 


| ?- X is round(78.345). 
X = 78.0 ? 
yes 


more buit-in predicates and functions Explain the handout “A list of built-ins of 
Sicstus Prolog’. 


Part 2. Debugging, Backtracking, Input and Output 


Debugging 


| ?- 
{The 
1 


A good principle of debugging is start with a smaller problem. 
trace — the goal’s satisfaction is displayed during execution 
notrace — turn off trace 

spy/1 — spy on a particular function 

nospy /1 — turn off the spy point 


Some usful commands: (there is no on-line help), + (spy this), - (no spy this), a (abort), b 
(break), d (display), f (fail), r (retry), s (skip), 


Example: 


trace, f(1, Y), 2 <Y. 
debugger will first creep -- showing everything (trace) } 
Call: ly 650% h 


Debugging options: 


< 


cr> creep c creep 
1 leap s skip 
r retry r <i> retry i 
f fail f <i> fail i 
d display W write 
p print p <i> print partial 
g ancestors g <n> ancestors n 
& blocked goals & <n> nth blocked goal 
n nodebug = debugging 
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+ spy this + <i> spy conditionally 
= nospy this ; find this 
a abort b break 
@ command u unify 
e pending exception 
< reset printdepth < <n> set printdepth 
K reset subterm ^ <n> set subterm 
i help h help 
1 Call: f(1,_65) ? 
2 Call: 1<3 ? s 
2 Exit: 1<3 ? 
1 Exit: f(1,0) 7 
1 Call: 2<0 ? + 


{Warning: Spying on prolog: < /2 is risky} 
{Spypoint placed on prolog: < /2} 


+ 1 Call: 2<0 ? 
+ 1 Fail: 2<0 ? 
1 Redo: f(1,0) ? - 
{There is no spypoint on user:f/2} 


1 
+ 2 


Redo: f(1,0) ? 
Redo: 1<3 ? - 


{Warning: Spying on prolog: < /2 is risky} 
{Spypoint removed from prolog: < /2} 


2 Redo: 1<3 ? d 
2 Redo: <(1,3) ? 
2 Fail: 1<3 ? 
2 Call: 1=<3 ? f 
2 Fail: 1=<3 ? r 
2 Call: 1=<3 ? 
2 Exit: 1=<3 ? 
2 Call: 1<6 ? b 
{Break level i} 
{1} 
Backtracking 


e The process of reviewing the goals that have been satisfied and attempting to resatisfy these 


goals by finding alternative solutions. 


e Prolog will automatically backtrack for satisfying a goal. 


e Example: The permutation program on page 79 of Bratko book which we have showd in 


class. 


e To control unnecessary backtracking, we use the cut facility. 


e Example 1: 


20 


ww ai bbt. com DOO0O000 


Rule 1: if X < 3 then Y= 0 
Rule 2: if 3 =< X and X < 6 then Y = 2 
Rule 3: if 6 =< X then Y = 4 


Prolog program f(X, Y): 
f(x, 0) :- X < 8. 

f(X, 2) :- X >= 3, X < 6. 
f(X, 4) :- X >= 6. 


Trace of f(X, Y): 

| ?- trace, f(1, Y), 2 < Y. 

{The debugger will first creep -- showing everything (trace)) 
1 Call: £(1,_65) ? 

Call: 1<3 ? 

Exit: 1<3 ? 

Exit: £(1,0) ? 

Call: 2<0 ? 

Fail: 2<0 ? 

Redo: f(1,0) ? 

Redo: 1<3 ? 

Fail: 1<3 ? 

Call: 1>=3 

Fail: 1>=3 

Call: 1>=6 

Fail: 1>=6 

Fail: £(1,_65) ? 


E RON -MM-M -DM N A RP RR DN DY 
NN VN N 


no 
{trace} 


Prolog program f1(X, Y): 
fi(X, 0) :- X< 3, |. 

fi(X, 2) :- X =< 3, X< 6, !. 
fi(X, 4) :- X =< 6. 


| ?- trace, f1(1, Y), 2 < Y. 

{The debugger will first creep -- showing everything (trace) } 
Call: £1(1,_85) ? 

Call: 1<3 ? 

Exit: 1<3 ? 

Exit: £1(1,0) ? 

Call: 2<0 ? 

Fail: 2<0 ? 

Redo: f1(1,0) ? 

Fail: f1(1,_85) ? 


erererrreN NNE 


21 


ww ai bbt. com DO0D§O000O 


no 
{trace} 


The cut in Example 1 changed the procedrual meaning of the prolog. 


Example 2: 


| ?- trace, f(7, Y). 

{The debugger will first creep -- showing everything (trace) } 
Call: £(7,_65) ? 

Call: 7<3 ? 
Fail: 7<3 ? 
Call: 7>=3 ? 
Exit: 7>=3 ? 
Call: 7<6 ? 
Fail: 7<6 ? 
Redo: 7>=3 ? 
Fail: 7>=3 ? 
Call: 7>=6 ? 
Exit: 7>=6 ? 
Exit: £(7,4) 


FPNONNNNNNNNN KF 


Y=4? 
yes 
{trace} 


All three rules are tried. If we change the program as the follows, the program will be 
guaranteed to be true. 


Prolog program f2(X, Y): 
f2(X, 0) :- X< 3, !. 
f2(X, 2) :- X< 6, 1. 
f2(_, 4). 


But if the cuts are omited, the program may produce some incorrect answers. 


Prolog program f3(X, Y): 
f3(X, 0) :- X < 3. 

f3(X, 2) :- X< 6. 

f3(_, 4). 

Output for f3(X, Y): 


| ?- f3(1, Y). 
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no 


Note: this time the cuts do not only affect the procedural behaviour, but also change the 
declaretive meaning (logical) of the program. 


A cut is a built-in predicate that succeeds when encountered. if backtracking should later 
return to the cut, the goal that matched the head of the clause containing the cut fails 
immediately. All the alternatives are discarded. 


More examples using cut: 


max(X, Y, Max) :- X >= Y. 
max(X, Y, Max) :- X < Y. 


Since the rules are mutually exclusive, a more economical way is using cut to preventing 
back tracking. 


max(X, Y, Max) :- X >= Y, !. 
max(X, Y, Y). 


Let us go back to our membership program: 
member (X, [X|_]). 

member (X, [_|Tail]) :- 

member(X, Tail). 


Output of member(X, List): 


| ?- member(X, [La,b,c,a,b,c]). 


PS PS PS PS PS DS 
orn a o» 
NN VY oN oN NY 


If the cut is added to the first clause, the answer will be: 
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| ?- memberi(X, [a,b,c,a,b,c]). 


e Negation as Failure 


— not goal is defined through the failure of the goal. 


— Example: Mary likes all animals but snakes. 


likes(mary, X) :- 
snake(X), !, fail. 


likes(mary, X) :- 
animal (X). 


The first clause will take care of snakes: if X is a snake then the cut will prevent 
backtracking (thus excluding the second clause) and fail will cause the failure of the 


query ‘likes(mary, snake)’. 


likes(mary, X) :- 
snake(X), !, fail; animal(X). 
or 
likes(mary, X) :- 
animal(X), \+ snake(X). 


e Green Cut and Red Cut 


— Example: 
p :- a, b. 
pr cee! 


which can be written as a logic formula: 


p <==> (a&b) Vc 


If we change the order of the two clause, the declarative meaning of this program is 
remains the same. Let us now insert a cut: 


piscas Vy bs 
p: 


The declarative meaning is now: 
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p <==> (a & b) V (“a & c) 


If we swap the clauses, 


go Ges 


P 
p:-a, !,b. 


The declarative meaning becomes: 


p <==> c V (a & b). 


— A cut has effect on the declarative meaning is called a red cut; while a cut has effect 
only on the procedural meaning is called a green cut. 


— A green cut is less delicate than a red cut. A red cut should be used with special care. 


Input and Output 


e communication with files 


— Prolog can open several files for input and output. 


— But at any time during execution of a Prolog program, only two them are active. One 
for input and one for output. 


— The built-in predicates see/1 and seen/0 opens and closes files for read; tell/1 and 
told/0 opens and closes files for write. 


— Example 1: tell(in file), see(out_file), read(X), write(X), ... 

— Example 2: tell(user), see(outline), ..., told, seen. 

— Example 3: tell(in_file), see(user), ..., told, seen. 

— Example 4: tell(out_filel), see(in_filel), do some thing, tell(out_file2), see(in_files2), do 
some thing, ... 


e read and write 


— Example 1: tell(out.file), read(X), write(X). 
— Example 2: write('Prolog is a AI programming language.’). 
— Example 3: 


out put([]). 
out put([X|Tail]) :- 
write(X), tab(1), nl, 
out put(Tail). 
— Example 4: on page 152, Bratko. 


e manipulating characters 
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— put/1 — output a character where C is the ASCII code of a character 
Example: put(65), put(66), put(67). output will be ABC 
— get0/1 — read in a character where C is the ASCII code of a character 


get/1 — read in non-blank characters 


e The difference between read/1, write/1 and get/1, put/1 is that read/1 can input a term 
(terminated with a full stop) while get/1 only get one charicter 


| ?- get(C), put (Cc). 
J: a. 
a 
C= 97 7? 
| ?- read(C), write(C). 
J: a. 
a 
C=a? 
e the function name 

— name(Atom, ASCII) — encoding ASCII to Atom or Atom to ASCII 


e Examples of using the built-in function name(2): 


atoc(Ascii) :- 
name(Atom, [Asciil), 
write(’?This is the character: '), 
write(Atom), nl. 


ctoa(Atom) :- 
name(Atom, [Asciil), 
write(’This is the ASCII code: '), 
write(Ascii), nl. 


Some output of atoc(Ascii) and ctoa(Atom): 

| ?- [library pl). 

{consulting /u/jian/public_htm1/420/sample/library.pl...} 
{/u/jian/public_htm1/420/sample/library.pl consulted, 150 msec 13712 bytes} 


yes 
| ?- atoc(68). 

This is the character: D 
yes 

| ?- ctoa(’C’). 

This is the ASCII code: 67 
yes 
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Programming Style and Techniques 


1. General principles of good programming 


e correctness — should be correct. That is, the program should do what it is supposed 
to do. À common mistake when writing a program is to neglect this obvious criterion 
and pay more attention to other criteria, such as efficiency. 


e efficiency — should not waste computer time and memory space. 
e readability — should be easy to read and understand. 
e modifiability — should be easy to modify and to extend. 


e robustness — should be ‘strong’ enough to stay alive when incorrect or unexpected 
input entered and report the errors. 


e documentation — should be properly documented. 
2. How to think about Prolog programs? 


e Prolog has two features: declarative and procedural (had given many examples) 
e Use of recursion: split the problem into trivial (boundary) cases and general cases. 
e Example: transform a list of letters into a list of ASCII code 


e name/2, a built-in function (see handout) which convert an atom into its Ascii code. 
For example, name(a, [97]). 


transf(L], 0O). 

transf([LI|Ls], [TITs]) :- 
name(L, [T]), 
transf(Ls, Ts). 


output of transf(2): 

| ?- trace, transf([a,b,c], Ascii). 

{The debugger will first creep -- showing everything (trace) } 
1 1 Call: transf([a,b,c],_73) ? 

Call: name(a,[_705]) ? 

Exit: name(a,[97]) ? 

Call: transf([b,c],_706) ? 

Call: name(b,[_1308]) ? 

Exit: name(b,[98]) ? 

Call: transf([c],_1309) ? 

Call: name(c,[_1910]) ? 

Exit: name(c,[99]) ? 

Call: transf([], 1911) ? 

Exit: transf (0,0) ? 

Exit: transf ([c],[99]) ? 

Exit: transf([b,c],[98,99]) ? 

Exit: transf([a,b,c],[97,98,99]) ? 


e. WAN NOONA FWY DD 
PN WP PPP WWWNYD ND 
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Ascii = [97,98,99] ? 


e Generalization: generalize the original problem so that the solution to the generalized 
problem can be formulated recursively. The original problem is then solved as a special 
case. 


e Example: add_to_list(Item, List, Newlist). 
e change to: add_to_list(Item, Pos, List, Newlist). 


3. Some rules of good style 


e Program clauses should be short. Do not contain a lot of goals in the body. 
e Names of variables, predicates, facts, should be meaningful. 
e The layout is important: 


— spacing, blank lines should be used for readability 
— clauses about the same procedure should be clustered together 


— indent the body of clauses 
e Avoiding using cuts especially red cuts 


e Commenting: what the program does, how it is used, what is the expected results,... 
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